home *** CD-ROM | disk | FTP | other *** search
/ Floppyshop 2 / Floppyshop - 2.zip / Floppyshop - 2.iso / diskmags / 4671-5.790 / dmg-4695 / giveway.17 / source / batshell.bas (.txt) < prev    next >
Atari STOS Basic  |  1987-04-21  |  3KB  |  30 lines
  1. 100 REM ~~~~~~~~~~~~~~~~~~~~ BATS FROM HELL ~~~~~~~~~~~~~~~~~~~~
  2. 110 MODE
  3. 120 VARNAME
  4. 130 DIM
  5. 140 LIMIT SPRITE
  6. 150 VARNAME
  7. 160 PEN
  8. 170 FOR
  9. 180 FOR
  10. 190 LOCATE
  11. 200 PEN
  12. 210 REPEAT
  13. 220 VARNAME
  14. 230 FOR
  15. 240 IF
  16. 250 SPRITE
  17. 260 IF
  18. 270 IF
  19. 280 UPDATE
  20. 290 VARNAME
  21. 300 VARNAME
  22. 310 IF
  23. 320 NEXT
  24. 330 UNTIL
  25. 340 LOCATE
  26. 350 LOCATE
  27. 360 IF
  28. 370 IF
  29. 5 REM Checked GFF א™
  30.